X-Git-Url: https://permondes.de/gitweb/Analog_Engine.git/blobdiff_plain/54bf965f97de8b362cbd0b85440aabbbd861ddc1..f25252dda165cd2fb57a745bcb17df03d5b590f3:/AESL/Radioactive%20Decay.AESL?ds=sidebyside

diff --git a/AESL/Radioactive Decay.AESL b/AESL/Radioactive Decay.AESL
new file mode 100644
index 0000000..e225eef
--- /dev/null
+++ b/AESL/Radioactive Decay.AESL	
@@ -0,0 +1,23 @@
+IDENTIFICATION DIVISION
+PROGRAM-ID Radioactive_Decay
+
+ENVIRONMENT DIVISION
+ENGINE Anabrid-THAT
+REQUIRES Coefficient 2
+REQUIRES Integrator 1
+REQUIRES Inverter 1
+
+DATA DIVISION
+OUTPUT OUTPUT.X N
+ALIAS COEFFICIENT.1 InitialValue
+ALIAS COEFFICIENT.2 Decay 
+
+PROGRAM DIVISION
++1 -> InitialValue -> N0
+N’, IC:N0 -> Integrator.1 -> -N
+-N -> Decay -> -lambda*N=N’
+-N -> Inverter.1 -> N
+
+OPERATION DIVISION
+MODE REPEAT
+OP-TIME 20ms